Sub зƮ()

    Dim Ʈ As Worksheet
    Dim з As Range,  As Range
    Dim ǰڵ As Range, ġ As Range
    Dim Ʈ̸ As String
    Dim üǼ As Long
    Dim ٳʺ As Integer
    Dim óǼ As Long
    Dim  As Single
        
    Set Ʈ = ActiveSheet
    Set з = Range("C3", Cells(Rows.Count, "C").End(xlUp))
        
    üǼ = з.Count
    ٳʺ = 245
        
    frmȲ.Show vbModeless

    Application.ScreenUpdating = False

        For Each  In з
        
            Ʈ̸ = .Value
                
            If Not IsSheet(Ʈ̸) Then
            
                Worksheets.Add After:=Sheets(Sheets.Count)
                ActiveSheet.Name = Ʈ̸
            
                With Ʈ
                    
                    .Range("B2:E2").Copy
                    Range("B2").PasteSpecial xlPasteAll
                    Range("B2").PasteSpecial xlPasteColumnWidths
                    
                    Range("B3").Select
                    
                    Application.CutCopyMode = False
                    
                    .Activate
                    
                End With
            
            End If
            
            With Worksheets(Ʈ̸)
            
                If .Columns(2).Find(.Offset(0, -1)) Is Nothing Then
                
                    Set ǰڵ = .Offset(0, -1).Resize(1, 4)
                    Set ġ = .Cells(Rows.Count, "B").End(xlUp).Offset(1)
                    
                    ǰڵ.Copy ġ
                
                End If
            
            End With
            
            óǼ = óǼ + 1
             = óǼ / üǼ
        
            With frmȲ
            
                .lbl.Width =  * (ٳʺ)
                .lbl.Caption = Format(, "0%")
                .lbl.Left = .lbl.Left + .lbl.Width
                            
            End With
        
            DoEvents
            
        Next
    
    Application.ScreenUpdating = True
    Application.OnTime Now + TimeSerial(0, 0, 1), "ݱ"
    
End Sub